home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / PowerFantasm™ 4.19a / PowerFantasm™ / F4_EXAMPLES / Sound play - 68k / SOUND_MAIN.S next >
Text File  |  1997-04-01  |  962b  |  34 lines
  1. *********************************
  2. *SOUND_MAIN.S            *
  3. *CALLS ALL NECESSARY ROUTINES    *
  4. *TO PLAY A SOUND RESOURCE 128    *
  5. *IN THE BACKGROUND.        *
  6. *********************************
  7. SOUND_MAIN:    
  8.     MOVE.W    #128,D0        *THE NUMBER OF THE SOUND RESOURCE TO LOAD
  9.     BSR.L    LOAD_SOUND    *LOAD IT AND RETURN HANDLE IN D0
  10.     MOVE.L    D0,SOUND(A5)    *STORE HANDLE
  11.  
  12. **NOW SET UP THE CHANNEL WE WANT, WHICH IS 0
  13.     CLR.L    CHAN(A5)
  14.             
  15. **NOW START THE SOUND PLAYING AND QUIT
  16.     BSR.L    PLAY_SOUND
  17. **now wait 5 seconds before quitting
  18.     CLR.L    -(SP)
  19.     DC.W    _TICKCOUNT
  20.     MOVE.L    (SP)+,D0    *CURRENT TIME IN 60THS OF A SECOND
  21.     ADD.L    #5*60,D0        *ADD ON 5 SECONDS
  22.     MOVE.L    D0,WAIT_TIME(A5)
  23.             
  24. **WAIT FOR TIMER TO REACH T+5 SECONDS
  25. WAIT:    CLR.L    -(SP)
  26.     DC.W    _TICKCOUNT
  27.     MOVE.L    (SP)+,D0    *GET CURRENT TIME
  28.     CMP.L    WAIT_TIME(A5),D0    *COMPARE IT TO TIME STORED
  29.     BLT.S    WAIT        *IF LESS THAN, THEN WAIT
  30.     RTS
  31.     global    sound_main    *every file must have at least one global def
  32.                 *even its just a dummy.
  33.     EXTERN    LOAD_SOUND,PLAY_SOUND
  34.